home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_88827.txt < prev    next >
Text File  |  1990-08-14  |  13KB  |  667 lines
  1. -- card: 88827 from stack: in
  2. -- bmap block id: 89330
  3. -- flags: 4000
  4. -- background id: 69011
  5. -- name: Students
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global buttonName,buttonList,groupOneSelect,groupTwoSelect
  9.   put the long date into field date
  10.   put false into groupOneSelect
  11.   put false into groupTwoSelect
  12.   set hilite of background button id buttonName to false
  13.   repeat with index = 1 to the number of lines of buttonList
  14.     set hilite of background button id line index of buttonList to false
  15.   end repeat
  16. end openCard
  17.  
  18. on closeCard
  19.   global buttonName, buttonList
  20.   set hilite of background button id buttonName to true
  21.   repeat with index = 1 to the number of lines of buttonList
  22.     set hilite of background button id line index of buttonList to true
  23.   end repeat
  24.   repeat with index = 8 to 28
  25.     set hilite of button index to false
  26.   end repeat
  27.   hide card field "Student List"
  28. end closeCard
  29.  
  30. on groupOne shiftKey
  31.   global groupOneSelect, groupTwoSelect
  32.   put true into groupOneSelect
  33.   if the shiftKey is down OR shiftKey is down then
  34.     set hilite of target to not hilite of target
  35.   else
  36.     lock screen
  37.     repeat with index = 8 to 13
  38.       set hilite of button id index to false
  39.     end repeat
  40.     set hilite of target to true
  41.     unlock screen
  42.   end if
  43.   if groupOneSelect AND groupTwoSelect then
  44.     show card field "Student List"
  45.   end if
  46. end groupOne
  47.  
  48. on groupTwo shiftKey
  49.   global groupOneSelect, groupTwoSelect
  50.   put true into groupTwoSelect
  51.   if the shiftKey is down OR shiftKey is down then
  52.     set hilite of target to not hilite of target
  53.   else
  54.     lock screen
  55.     repeat with index = 14 to 19
  56.       set hilite of button id index to false
  57.     end repeat
  58.     set hilite of target to true
  59.     unlock screen
  60.   end if
  61.   if groupOneSelect AND groupTwoSelect then
  62.     show card field "Student List"
  63.   end if
  64. end groupTwo
  65.  
  66. on groupThree shiftKey
  67.   if visible of card field "Student List" then
  68.     if the shiftKey is down OR shiftKey is down then
  69.       set hilite of target to not hilite of target
  70.     else
  71.       lock screen
  72.       repeat with index = 20 to 28
  73.         set hilite of button id index to false
  74.       end repeat
  75.       set hilite of target to true
  76.       unlock screen
  77.     end if
  78.   end if
  79. end groupThree
  80.  
  81.  
  82. -- part 1 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=0 top=0 right=342 bottom=512
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: 
  94.  
  95.  
  96. -- part 2 (button)
  97. -- low flags: 00
  98. -- high flags: 0000
  99. -- rect: left=156 top=29 right=46 bottom=242
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Periods
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   lock screen
  111.   go to card short name of me of this stack
  112.   unlock screen
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 3 (button)
  118. -- low flags: 00
  119. -- high flags: 0000
  120. -- rect: left=246 top=29 right=46 bottom=332
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Exceptions
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   lock screen
  132.   go to card short name of me of this stack
  133.   unlock screen
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 4 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=336 top=29 right=46 bottom=422
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Format
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   lock screen
  153.   go to card short name of me of this stack
  154.   unlock screen
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part 5 (button)
  160. -- low flags: 00
  161. -- high flags: 2000
  162. -- rect: left=256 top=271 right=289 bottom=334
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Print
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   lock screen
  174.   go to card "Exception Report" of this background
  175.   unlock screen
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 6 (button)
  181. -- low flags: 00
  182. -- high flags: 2000
  183. -- rect: left=356 top=271 right=289 bottom=434
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: Cancel
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   lock screen
  195.   pop card
  196.   unlock screen
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 7 (button)
  202. -- low flags: 00
  203. -- high flags: 2000
  204. -- rect: left=306 top=235 right=253 bottom=384
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: Select all
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   lock screen
  216.   repeat with index = 20 to 28
  217.     set hilite of button id index to true
  218.   end repeat
  219.   unlock screen
  220. end mouseUp
  221.  
  222.  
  223.  
  224. -- part 8 (button)
  225. -- low flags: 00
  226. -- high flags: 0000
  227. -- rect: left=66 top=95 right=109 bottom=209
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: 
  236. ----- HyperTalk script -----
  237. on mouseUp shiftKey
  238.   groupOne shiftKey
  239. end mouseUp
  240.  
  241.  
  242.  
  243. -- part 9 (button)
  244. -- low flags: 00
  245. -- high flags: 0000
  246. -- rect: left=66 top=109 right=123 bottom=209
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 1
  250. -- font id: 0
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: 
  255. ----- HyperTalk script -----
  256. on mouseUp shiftKey
  257.   groupOne shiftKey
  258. end mouseUp
  259.  
  260.  
  261.  
  262. -- part 10 (button)
  263. -- low flags: 00
  264. -- high flags: 0000
  265. -- rect: left=66 top=123 right=137 bottom=209
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 0 / 0
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: 
  274. ----- HyperTalk script -----
  275. on mouseUp shiftKey
  276.   groupOne shiftKey
  277. end mouseUp
  278.  
  279.  
  280.  
  281. -- part 11 (button)
  282. -- low flags: 00
  283. -- high flags: 0000
  284. -- rect: left=66 top=137 right=151 bottom=209
  285. -- title width / last selected line: 0
  286. -- icon id / first selected line: 0 / 0
  287. -- text alignment: 1
  288. -- font id: 0
  289. -- text size: 12
  290. -- style flags: 0
  291. -- line height: 16
  292. -- part name: 
  293. ----- HyperTalk script -----
  294. on mouseUp shiftKey
  295.   groupOne shiftKey
  296. end mouseUp
  297.  
  298.  
  299.  
  300. -- part 12 (button)
  301. -- low flags: 00
  302. -- high flags: 0000
  303. -- rect: left=66 top=151 right=165 bottom=209
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 0 / 0
  306. -- text alignment: 1
  307. -- font id: 0
  308. -- text size: 12
  309. -- style flags: 0
  310. -- line height: 16
  311. -- part name: 
  312.  
  313.  
  314. -- part 13 (button)
  315. -- low flags: 00
  316. -- high flags: 0000
  317. -- rect: left=66 top=165 right=179 bottom=209
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 1
  321. -- font id: 0
  322. -- text size: 12
  323. -- style flags: 0
  324. -- line height: 16
  325. -- part name: 
  326.  
  327.  
  328. -- part 14 (button)
  329. -- low flags: 00
  330. -- high flags: 0000
  331. -- rect: left=66 top=211 right=225 bottom=209
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: 
  340. ----- HyperTalk script -----
  341. on mouseUp shiftKey
  342.   groupTwo shiftKey
  343. end mouseUp
  344.  
  345.  
  346.  
  347. -- part 15 (button)
  348. -- low flags: 00
  349. -- high flags: 0000
  350. -- rect: left=66 top=225 right=239 bottom=209
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 1
  354. -- font id: 0
  355. -- text size: 12
  356. -- style flags: 0
  357. -- line height: 16
  358. -- part name: 
  359. ----- HyperTalk script -----
  360. on mouseUp shiftKey
  361.   groupTwo shiftKey
  362. end mouseUp
  363.  
  364.  
  365.  
  366. -- part 16 (button)
  367. -- low flags: 00
  368. -- high flags: 0000
  369. -- rect: left=66 top=239 right=253 bottom=209
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 1
  373. -- font id: 0
  374. -- text size: 12
  375. -- style flags: 0
  376. -- line height: 16
  377. -- part name: 
  378.  
  379.  
  380. -- part 17 (button)
  381. -- low flags: 00
  382. -- high flags: 0000
  383. -- rect: left=66 top=253 right=267 bottom=209
  384. -- title width / last selected line: 0
  385. -- icon id / first selected line: 0 / 0
  386. -- text alignment: 1
  387. -- font id: 0
  388. -- text size: 12
  389. -- style flags: 0
  390. -- line height: 16
  391. -- part name: 
  392.  
  393.  
  394. -- part 18 (button)
  395. -- low flags: 00
  396. -- high flags: 0000
  397. -- rect: left=66 top=267 right=281 bottom=209
  398. -- title width / last selected line: 0
  399. -- icon id / first selected line: 0 / 0
  400. -- text alignment: 1
  401. -- font id: 0
  402. -- text size: 12
  403. -- style flags: 0
  404. -- line height: 16
  405. -- part name: 
  406.  
  407.  
  408. -- part 19 (button)
  409. -- low flags: 00
  410. -- high flags: 0000
  411. -- rect: left=66 top=281 right=295 bottom=209
  412. -- title width / last selected line: 0
  413. -- icon id / first selected line: 0 / 0
  414. -- text alignment: 1
  415. -- font id: 0
  416. -- text size: 12
  417. -- style flags: 0
  418. -- line height: 16
  419. -- part name: 
  420.  
  421.  
  422. -- part 29 (field)
  423. -- low flags: 81
  424. -- high flags: 0000
  425. -- rect: left=250 top=95 right=221 bottom=429
  426. -- title width / last selected line: 0
  427. -- icon id / first selected line: 0 / 0
  428. -- text alignment: 0
  429. -- font id: 3
  430. -- text size: 10
  431. -- style flags: 0
  432. -- line height: 14
  433. -- part name: Student List
  434.  
  435.  
  436. -- part 20 (button)
  437. -- low flags: 00
  438. -- high flags: 0000
  439. -- rect: left=250 top=95 right=109 bottom=429
  440. -- title width / last selected line: 0
  441. -- icon id / first selected line: 0 / 0
  442. -- text alignment: 1
  443. -- font id: 0
  444. -- text size: 12
  445. -- style flags: 0
  446. -- line height: 16
  447. -- part name: 
  448. ----- HyperTalk script -----
  449. on mouseUp shiftKey
  450.   groupThree shiftKey
  451. end mouseUp
  452.  
  453.  
  454.  
  455. -- part 21 (button)
  456. -- low flags: 00
  457. -- high flags: 0000
  458. -- rect: left=250 top=109 right=123 bottom=429
  459. -- title width / last selected line: 0
  460. -- icon id / first selected line: 0 / 0
  461. -- text alignment: 1
  462. -- font id: 0
  463. -- text size: 12
  464. -- style flags: 0
  465. -- line height: 16
  466. -- part name: 
  467. ----- HyperTalk script -----
  468. on mouseUp shiftKey
  469.   groupThree shiftKey
  470. end mouseUp
  471.  
  472.  
  473.  
  474. -- part 22 (button)
  475. -- low flags: 00
  476. -- high flags: 0000
  477. -- rect: left=250 top=123 right=137 bottom=429
  478. -- title width / last selected line: 0
  479. -- icon id / first selected line: 0 / 0
  480. -- text alignment: 1
  481. -- font id: 0
  482. -- text size: 12
  483. -- style flags: 0
  484. -- line height: 16
  485. -- part name: 
  486. ----- HyperTalk script -----
  487. on mouseUp shiftKey
  488.   groupThree shiftKey
  489. end mouseUp
  490.  
  491.  
  492.  
  493. -- part 23 (button)
  494. -- low flags: 00
  495. -- high flags: 0000
  496. -- rect: left=250 top=137 right=151 bottom=429
  497. -- title width / last selected line: 0
  498. -- icon id / first selected line: 0 / 0
  499. -- text alignment: 1
  500. -- font id: 0
  501. -- text size: 12
  502. -- style flags: 0
  503. -- line height: 16
  504. -- part name: 
  505. ----- HyperTalk script -----
  506. on mouseUp shiftKey
  507.   groupThree shiftKey
  508. end mouseUp
  509.  
  510.  
  511.  
  512. -- part 24 (button)
  513. -- low flags: 00
  514. -- high flags: 0000
  515. -- rect: left=250 top=151 right=165 bottom=429
  516. -- title width / last selected line: 0
  517. -- icon id / first selected line: 0 / 0
  518. -- text alignment: 1
  519. -- font id: 0
  520. -- text size: 12
  521. -- style flags: 0
  522. -- line height: 16
  523. -- part name: 
  524. ----- HyperTalk script -----
  525. on mouseUp shiftKey
  526.   groupThree shiftKey
  527. end mouseUp
  528.  
  529.  
  530.  
  531. -- part 25 (button)
  532. -- low flags: 00
  533. -- high flags: 0000
  534. -- rect: left=250 top=165 right=179 bottom=429
  535. -- title width / last selected line: 0
  536. -- icon id / first selected line: 0 / 0
  537. -- text alignment: 1
  538. -- font id: 0
  539. -- text size: 12
  540. -- style flags: 0
  541. -- line height: 16
  542. -- part name: 
  543. ----- HyperTalk script -----
  544. on mouseUp shiftKey
  545.   groupThree shiftKey
  546. end mouseUp
  547.  
  548.  
  549.  
  550. -- part 26 (button)
  551. -- low flags: 00
  552. -- high flags: 0000
  553. -- rect: left=250 top=179 right=193 bottom=429
  554. -- title width / last selected line: 0
  555. -- icon id / first selected line: 0 / 0
  556. -- text alignment: 1
  557. -- font id: 0
  558. -- text size: 12
  559. -- style flags: 0
  560. -- line height: 16
  561. -- part name: 
  562. ----- HyperTalk script -----
  563. on mouseUp shiftKey
  564.   groupThree shiftKey
  565. end mouseUp
  566.  
  567.  
  568.  
  569. -- part 27 (button)
  570. -- low flags: 00
  571. -- high flags: 0000
  572. -- rect: left=250 top=193 right=207 bottom=429
  573. -- title width / last selected line: 0
  574. -- icon id / first selected line: 0 / 0
  575. -- text alignment: 1
  576. -- font id: 0
  577. -- text size: 12
  578. -- style flags: 0
  579. -- line height: 16
  580. -- part name: 
  581. ----- HyperTalk script -----
  582. on mouseUp shiftKey
  583.   groupThree shiftKey
  584. end mouseUp
  585.  
  586.  
  587.  
  588. -- part 28 (button)
  589. -- low flags: 00
  590. -- high flags: 0000
  591. -- rect: left=250 top=207 right=221 bottom=429
  592. -- title width / last selected line: 0
  593. -- icon id / first selected line: 0 / 0
  594. -- text alignment: 1
  595. -- font id: 0
  596. -- text size: 12
  597. -- style flags: 0
  598. -- line height: 16
  599. -- part name: 
  600. ----- HyperTalk script -----
  601. on mouseUp shiftKey
  602.   groupThree shiftKey
  603. end mouseUp
  604.  
  605.  
  606.  
  607. -- part contents for background part 28
  608. ----- text -----
  609. Abrosimoff, Mich‚Ķ
  610. Adams, Bryan
  611. Alexander, Rick
  612. Alexander, Susan
  613. Allsop, Blair M.
  614. Azimov, Isaac
  615. Barisoff, Larissa
  616. Bunyan, Paul
  617. Burnyeat, Grant
  618. Caldwell, Brian
  619.  
  620.  
  621.  
  622. -- part contents for background part 29
  623. ----- text -----
  624. 47
  625. 80
  626. 53
  627. 54
  628. 52
  629. 102
  630. 48
  631. 13
  632. 94
  633. 93
  634.  
  635. -- part contents for background part 30
  636. ----- text -----
  637. Present
  638. Present
  639. Present
  640. Present
  641. Present
  642. Present
  643. Present
  644. Present
  645. Present
  646. Present
  647.  
  648.  
  649. -- part contents for background part 33
  650. ----- text -----
  651. 0 students selected
  652.  
  653. -- part contents for card part 29
  654. ----- text -----
  655. Abrosimoff, Michael John
  656. Adams, Bryan
  657. Alexander, Rick
  658. Alexander, Susan
  659. Allsop, Blair M.
  660. Barisoff, Larissa
  661. Bunyan, Paul
  662. Burnyeat, Grant
  663. Caldwell, Brian
  664.  
  665. -- part contents for background part 31
  666. ----- text -----
  667. Monday, September 4, 1989